# -*- mode: snippet -*-
# name: header_dvp
# key: dvp
# --
/********************************************************************************************************************************************************
程序名称：       	`(file-name-base (buffer-file-name))`
程序目的：			DVP程序核查
程序作者：			Yuanchen.Xie
创建日期： 			`(format-time-string "%F")`
程序版本：           `(nth 7 (split-string (file-name-directory (buffer-file-name)) "/"))`
修改历史： 			xxxxx
*********************************************************************************************************************************************************/

%include "`(let* ((projname (nth 2 (split-string (file-name-directory (expand-file-name (buffer-name))) "/")))
(autopath (concat "d:/project/" projname "/Auto")))
(concat autopath "/" (nth 2 (directory-files autopath))))`";

proc printto log = "&pr_dvplog./`(file-name-base (buffer-file-name))`.log" new;
run;

proc delete data=_all_;
run;

/* Code: ************************************************************************/

$0

proc export data=dt_out
outfile="&pr_dvpoutput./`(file-name-base (buffer-file-name))`.xlsx"
dbms=xlsx replace label;
run;

proc printto log = log new;
run;

ods rtf close;